|
AutoCAD VBA : Elemente für Berabeitung markieren
KlaK am 20.08.2008 um 07:49 Uhr (0)
Guten Morgen Peter,wie Du schon anderswo erwähntest man lernt nie aus. Eine Möglichkeit Elemente automatisch zu markieren :Code:Dim ssCurr As AcadSelectionSetSelSet zuweisen und vorhandene Daten zurücksetzenSet ssCurr = ThisDrawing.SelectionSets("CURRENT")Set ssCurr = ThisDrawing.SelectionSets("PICKFIRST")ssCurr.ClearDim FilterType(1) As IntegerDim FilterData(1) As VariantFilterType(0) = 0 Objekt auswählenFilterData(0) = "Circle" KreisFilterData(0) = "LWPolyline" PolylinieFilterType(1) = 67 GP AcadSpace ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute in AutoCAD über Excel VBA ausfüllen lassen
KlaK am 09.05.2017 um 23:13 Uhr (1)
Hallo Acaduser84, Willkommen im Forum Habe zwar gerade kein Autocad bei der Hand aber vielleicht auf die Schnelle ein paar Hinweise.Zunächst schreibst Du Du hast eine Autocadzeichnung die den Block "Rohrtabelle" enthält. Im Programm überprüfst Du zwar ob eine Autocadzeichnung geöffnet ist, falls nicht wird einfach eine neue Zeichnung geöffnet. Stellt sich mir natürlich gleich die Frage ob der Block in der Standardvorlage enthalten ist.Dann holst Du Dir die Blockdefinition und möchtest das Attribut der Def ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Indirekte Adressierung
KlaK am 17.06.2008 um 17:59 Uhr (0)
Hallo,so ganz genau weiß ich ja nicht was Du machen möchtest.Schau Dir doch mal diesen Artikel von Andreas an.Mit dieser Routine kannst Du Dir die Papierformate eines Druckers holen und diese einer Liste zuweisen.Wenn Du noch die verfügbaren Plotter (System und .pc3) brauchst, benützt Du diesen Code:Dim plotDevices As VariantplotDevices = Layout.GetPlotDeviceNames()Die tatsächlichen Blattgrößen kannst Du durch Setzen von Layout.CanonicalMediaName = mediaNames(x)und Abrufen über Layout.GetPaperMargins Margi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Preview
KlaK am 29.01.2009 um 00:22 Uhr (0)
Hi Stechi,Nur mal so nachgefragt, nachdem Du mit den Codeschnipseln so spärlich bist:dem Layout hast Du die Plotconfig schon zugewiesen?Layout.ConfigName = AUSGABEGERÄTKlausPS: Vielleicht probierts Du es auch mal mit anderen Namen äöüÄÖÜß verwende ich prinzipiell nicht in Variablennamen. Sollte zwar nichts ausmachen, aber man weiß ja nie.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layout von Vorlage per VB(A)
KlaK am 27.08.2008 um 21:47 Uhr (0)
Hallo Peter, habs gerade erst gelesen, mache das aber auch mit CopyObjects.Cadmium hat hier mal den Vorschlag es mitsendcommand zu probieren.In Deinem Fall wäre es der Befehl:sendcommand mit -layout v (Vorlage).dwt (Layoutname aus Vorlagendatei)Mit CopyObjects hast Du m.E. aber die bessere KontrolleGrüße,Klaus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Plot auf dem Kopf
KlaK am 28.08.2008 um 18:30 Uhr (0)
Hallo Chris,erläuter doch mal genauer:Welche OLE-Objekte möchtest Du plotten?Wie sind die OLE eingefügt? (im Layout oder per VBA) Zitat:die Autocad geschichten Standart mäßig halt Sind die OLE in der Vorschau / Layout richtig und nur beim plotten falsch?Fragen über Fragen !Grüße,Klaus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : noch einmal Selektion
KlaK am 19.08.2008 um 18:26 Uhr (0)
Hallo Peter,was hast Du denn schon wieder vor? Eine Legende durchsuchen ob alle Blöcke auch vorhanden sind?Meines Erachtens kannst Du den Layoutnamen über den Gruppencode unter VBA so nicht herausfiltern, evtl. gehts ja über LISP.Wenn Dir der Vorschlag von Carsten nicht gefällt, hier noch eine Variante wie ich das machen würde:Wechsel in das Layout und mach ein acSelectionSetWindow ExtMin, ExtMaxdann weißt Du ob der Block in diesem Layout vorhanden ist oder nicht Damit kannst Du den Filter anwenden und sp ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Seiteneinrichtung bei Plot wählen
KlaK am 13.09.2018 um 19:46 Uhr (1)
Hi,Da hast Du wahrscheinlich nach den falschen Stichwörtern gesucht oder nicht durch alle Einträge. Dürfte so um das Jahr 2009 gewesen sein dass hier viel über automatisches Plotten diskutiert wurde.Im Prinzip kannst Du das was BerndP geschrieben hat auch in VBA machen (SendCommand) oder Du programmierst es selber.Dein Wunsch "oDoc.DruckeMitVorgegebenerSeiteneinrichtung(VariableInDerNameVonSeiteneinrichtungSteht)" heißt in Autocad VBA : oDoc.Plot.PlotToDevice(VariableInDerNameVonSeiteneinrichtungSteht)Du w ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
KlaK am 17.02.2013 um 12:19 Uhr (0)
Nur mal so zum Nachdenken:Kennst Du die CopyObjects Methode?Deine Bibliothekszeichnung als 2. Dokument im Hintergrund öffnen, Block in die Zeichnung kopieren (Block-Collection) und RefBlock in den Modellspace einfügen, wäre doch das einfachste, anstatt die komplette Bibliothek und hinterher bereinigen zu müssen.Andererseits, wenn ich Rahmen A0 lese. Ist das ein komplettes Layout? Dann könnte man sich den Umweg über den Block sparen und gleich ein neues Layout kopieren. Ihr werdet doch hoffentlich keinen Pl ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
KlaK am 17.02.2013 um 12:19 Uhr (0)
Nur mal so zum Nachdenken:Kennst Du die CopyObjects Methode?Deine Bibliothekszeichnung als 2. Dokument im Hintergrund öffnen, Block in die Zeichnung kopieren (Block-Collection) und RefBlock in den Modellspace einfügen, wäre doch das einfachste, anstatt die komplette Bibliothek und hinterher bereinigen zu müssen.Andererseits, wenn ich Rahmen A0 lese. Ist das ein komplettes Layout? Dann könnte man sich den Umweg über den Block sparen und gleich ein neues Layout kopieren. Ihr werdet doch hoffentlich keinen Pl ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position suchen
KlaK am 29.03.2009 um 18:17 Uhr (0)
Vielleicht noch zur Ergänzung zu Alfreds Code: Zitat: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(0) As Integer: tDxfCodes(0) = 0 Dim tDxfValues(0) As Variant: tDxfValues(0) = "INSERT" tSSet.Select acSelectionSetAll, , , tDxfCodes, tDxfValueskönnte man auch so machen:Code: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(1) As Integer Dim tDxfValues(1) As Variant tDxfCodes(0) = 0 tDxfValues(0) = "INSERT" tDxfCodes ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Polyline breite änderung
KlaK am 18.12.2007 um 12:12 Uhr (0)
SelectionSet mode=selectall mit Filterkriterium Polygondiesen durchlaufen lassen und Eigenschaft wie oben ändern.Code:Aufruf über: (command "vbarun" "main")Sub main()Dim SS1 As AcadSelectionSetDim ent As VariantDim plineObj As AcadLWPolylineDim gpCode() As IntegerDim dataValue() As VariantReDim gpCode(2) As IntegerReDim dataValue(2) As Variant gpCode(0) = 67 Filter ob Modell oder Layout dataValue(0) = 0 Modell (0) / Layout (1) gpCode(1) = 0 Filter nach Element dataValue(1) = "LWPOLYLINE" Objekt ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : alle Layout löschen in Zeichnung
KlaK am 15.03.2013 um 14:55 Uhr (0)
oder gleich mit:Code:..For each entity in ThisDrawing.Layouts ..da spart man sich solch lästige Fehler ...GrüßeKlaus
|
| In das Form AutoCAD VBA wechseln |
